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Unravl: A Strategy 

By Brian GcxDdhari: 

Have you ever tried to learn Itow someone 
else's BASIC program vjorks? Have you 
masochists out there ever tried to unravel a 
BASIC program written by C^I? 

Here is a tool for programmers usir^ 
BASIC under OS—65U. Nothing fancy, just a 
merger of two separate 65U features. 

Itie 65U manual describes the FLAG 
ccnmands on page 24. FLAG 7 enables a BASIC 
staterent trace: invoke it, and the systen 
will display each line of code csi the 
terminal vthen it interprets it. You can 
distinguish program from cxitput by the 
cisteri^ which precedes traced program 
lines. 

Also in the 65U manual, on page 48, -we 
see tliat POKE 11686,17 enables simultaneous 
cxrtput to the terminal and line printer 
(POKE 11686,129 for a serial printer). 

Both of these features are probably old 
hat for you. But if you use FLAG 7, do you 
sit there and hammer Control S to stop the 
display and see.-^^iatgoing crx? Do you 
take gopiotSreates to record what you learn 
frcm the TRACE? Do you get as frustrated as 
I did? 

There's a better way. Ccirtoine these two 
features, and what do you get? Hard copy of 
your staterent trace 1 New you can read a 
progran listing that shews every line of 
code as it is executed. If Line 33200 says 
"GOTO 157" the next line in the listing is 
Line 157. I can attest that this feature is 
very useful v^ien you have to detennirK hew 
another author's program vrorks. 

Exatple 1 shews hew the POKE and FLAG 
entries can clear 15 ) an ON - GOTO. 

EXAMPLE 1 


5 FLAG 7: POKE 11686,129 
10 PRINT "HELLO TOERE." 

20 FW I = 1 TO 5 

30 ON I QCmD 40,60,80,100,120 

40 X = I 

50 GOTO 150 

60 X = X " 2 

70 GOTO 150 

continued on page 2 


Disk Copy: Single Drive 

By Jeffrey Krauss 

I knew that one of the first things I 
WDuld want to do after ny C4P-MF arrived 
was to make backup copies of the system 
software and other programs I ordered. 

But I ccsjldn't figure out from the sales 
literature lx 3 w to copy a disk with only a 
single disk drive. No problem, they said, 
si-rply copy track by track and sector ty 
sector. 

Well, in fact that is not trivial by 
any means, ard CSI supplies no 
docijnentation to describe the sinple 
tricks that are needed to do a 
single-drive copy. Therefore, this 
description may be helpful to new OSI 
users in the future, so that it won't take 
them as long as it took me to figure this 
cut. 

The general procedure is as follows: 
first, initialize the blaik disk. Seddhd, 
copy track 00 frcm the operating systan 
onto the initialized disk. Third, copy 
the ranainder of the operating system, 
tracks 01-13, onto the initialized disk. 
Finally, copy the other files onto tte new 
disk. 

Initializir^ a disk is sinple and 
straightforward, but be sure you insert a 
disk that is either blank or expendable, 
because it wipes out everything that was 
previously on the disk. The second and 
third steps have other little pitfalls for 
the unwary. 

Copying track 00 requires the use of 
the Track 0 Read-Wf ite Utility, iiAiich is 
poorly vdocunented in the OSI Users Manual. 
This program is found on track 13 of the 
system disk, and can be loaded with the 
following cotnmnd: DISKl"CALL 0200=13,1". 
Respxwid to the menu with a "2" to select 
the Track 0 utility. With the system disk 
still loaded, respond R4200 to read track 
00 into manory starting at location hex 
4200. Then remove the systan disk, insert 
the initialized disk, and respond 
W4200/0200,8 to load the material startir^ 
at location 4200 onto the new disk. The 
0200 is the hex memory Icxraticxi that the 
system junps to upon a cold start (i.e., 

continued on page 2 




Unravl: A Strategy 

continued from page 1 


80 X = X / 4 
90 GOTO 150 
100 X = X - I 
110 GOTO 150 
120 X = X + I - 3 
150 NEXT I 
160 PRINT " X= "rX 
200 END 


Of cxHirse, this tactic should be used 
judiciously. Before you put "POKE 
11686,17:FLAG 7" at the beginning of all 
your programs, save yDurself seme paper and 
time. Read throi:^ the program and find all 
the FOR-NEXT loops. Unless you own Diano^ 
Paper, you don't v^rant a hard copy trace of 
every ex^uticaa of every loop. Start and 
stop the trace and the printed to "study the 
parts that are hard to follow. 


Suppose you're going to operate on a 
variable in a loop that vri.ll execute 100 
times, and you'd like to know viSiat the 
variable is at the beginning and at the end 
of the loop. Exartple 2 shows hew you can do 
it: 


EXAMPLE 2 


90 POKE 11686,129:FLAG 7 
100 X=4 * RND(l) 

110 FOR I = 1 TO ICX) 

120 X=INr(X+2.345) 

130 IF I<3 THEN POKE 11686,129: PEUBJT 
"1= ";I,"X= ";X - 

135 IF 1=3 THEN POKE 11686,1:FLAG 8 
140 IF I>98 THEN FIAG 7:POKE 11686,129: 
PRINT"I= ”;I,"X= ";X 
150 NEXT 


Disk Copy: Single Drive 

continued from page 1 

hitting "BREAK" and then "D"), and the "8" 
indicates 8 pages. 

-At this point you are no longer in 
BASIC but rather in the kernel of the 
C^ierating ^stem, and I have always fourKi 
it most convenient to load the systan disk 
bade in, hit the "BREAK" key, and re-boot. 

Copying Tracks 01-13 requires the use 
of the CMjL and SAVE cam^nds. Most of 
these tracks ccxitain a single file, eight 
pages long, starting at sector 1. A traede 
ocxitaining a single file can be copied 
vri-th a single pass: with the system disk 
loaded, type DI^r’GALL 4200=01,1"? then 
ranove the system disk, insert the new 
di^, and enter DISK! "SAVE 01,1=4200/3". 
However, tracks 06, 12, and possibly 
others (viAxa knows?) have several files, 
and require a separate CALL, SAVE for each 
file. Here it is useful to run the SBCDIR 
utility program that is supplied on the 
^stem disk to determine vshat is on each 
track. If these tracks are not copied 

properly, the 'disk“"will not boot in arxi _ 

the directory will not be stored prc^^erly. 

The remainder of the disk can be copied 
using the LOAD and PUT cowrands, using 
file names determined ty using the DIR 
program. For exairple, the program CREATE 
can be copied as follows: with the systan 
loaded, type DISKr’LCAD CREATE"; then, 
with the new disk loaded, type DISK! "PUT 
CREATE". Ihe system will use the 
directory informaticxi fran track 12 to 
determine which track the file slxxild be 
loaded into. 

Of csourse, this approach is a bit 
tedious, rec^rirg the continual swapping 
of disks. It might be more efficient to 
buy from a vendor a disk cepy routine that 
will accorrplish the copy with cnly four or 
five swaps. Surprisingly, Ohio Scientific 
itself does not offer such a program, taut 
there are several vendors viho offer the 
softvEure for about $15-20. 

Nevertheless, the procedure outlir^d 
here v«Drks properly; the k^'s are knowing 
how to use the Track 0 Read/Write utility, 
and running SECDIR to determine the laycxit 
of each track. lAifortunately, the C®I 
User Manual .doesn't provide much guidance 
in this area. 
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OS-65D Notes 

OS-65D UTILITIES 

Examining the utilities not only 
will help us understand low a nurter of 
PEEKS and POKEs can be used, but can also 
slKJw us how we select v» 4 iat we need 

frcxn the various utilities and coribine 
them into a single program. This is very 
worthvi^iile if you have a single disk 
system and need the utilities c»i nearly 
every disk * 

It will be easier to follow the 
discuss icai if you have a cop^ of the 
listing of the utilities handy/One place 
you can find them is in the final issue 
of The iSTvall Systans Journal which 
consists of ei^t sections. Section 8 is 
a listing of the Utiliti^. 

Ihe CHANGE Utility 

•pie program inmediately drops doi^ 
to line 1000 and starts by adjustment of 
the (printer) line width. The width is 
changed to anywhere between 14 and 255 by 
poking the desired width into decimal 23. 
Ihe total number of characters for all 
the fields is then poked into 24. There 
are 14 characters ^ field, so that this 
number rtsist be an integral nuntoer t-im tag 
14 or data on tsio consecutive printed 
lines will not line 1 : 55 , 

From line 1100'' and onward, we see 
that the 'number of pages of available 
memory can be determir^d ]y/ peeking at 
decimal 3960, and that the workspace can 
be decreased by poking into 8960 a 
smaller nurher of pages than what is 
acrtualiy available in mamory. The space 
that is made unavailable to BASIC in this 
way can be used for other purposes. 

We then go back up to line 36 where 
^ are given other opportunities to 
change BASIC's workspace. 

The buffers are set up by the 
operating system at the bottom of BASIC's 
workspace where they do not affect BASIC 
uiUess you try to bring in data fran the 
disk. If you do try to brir^ in data, it 
will overwrite the portion of the BASIC 
program residing in the buffer area with 
disastercus results. Consequently, in 
order to prevent this, the buffers must 
not be in the BASIC workspace if data is 
to be moved between BASIC and the disk. 
The CHANGE utility allows you to move the 
lOrtrer bound of BASIC up above the area 
occipied by the buffers. The other c^ion 
cpen to you is to lower the upper board 


of BASIC and pjt the buffer{s) on top. 

Lines 40 onward ask you how many 
buffers you want to use and ^diether you 
want to leave room below BASIC for 
something in addition to the buffers. You 
can leave additional space below BASIC 
for some data, for a machine program, or 
possibly other purposes. 

It is inportant to realize that 
everything that resides in the region 
between BASIC's original lower bouffd ard 
the new lower bound at the time of disk 
transfer is saved on the disk. This means 
that if you put a machine lar^uage 
program or sorne data between the buffers 
and BASIC, it will oe there the next time 
you load the program from the disk. 

In general you will not want to save 
the material that happens to be in the 
buffers \dien you PUT to the disk, 
however, you don't have any choice if you 
have left, your buffers on tlie bottom. If 
you use buffer #6 on the botton, one 
track of the disk will be wasted. If you 
use #6 & #7, or if you use #7 alone, two 
tracks will be wasted. . 

the other hand, even though you 
place the txiffers on the top, you may 
want to leave some space on the bottom 
for scsTve data or a machine program that 
you want to save alcwig with the BASIC 
program. 

-Glancing down to line 390, note 
that the lower bourd of BASIC is lifted 
by poking the new bottom address into 120 
3 nd 121. The new address is calculated by 
adding 3072 bytes for each buffer plus as 
neny bytes as are desired for the 
additicsial space, and addLng the result 
to the adlress of the original bottcm. 

The ipper limit, which we may 
already have Icweretl by clianging the 
nuTiber of pages in 8960, nsy be lowered 
further by poking the new ujper bounti 
into 132 and 133. Of course, it is not 
ne^ssary to use 3960 at all if you are 
going to use 132 and 133, and vice versa; 
however, 8960 allows only changes in 
terms of pages, since only the high 
is used. 

Next itoith, ocntinuing our study of 
OS-65D utilities, we'll gi-ve a good deal of 
attentioi to CRESATE. 

JC® KIRSffilS^ 
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Flash Card Program 

by Stowart C. Meyers 

This is a rather basic program 
with no bells and whistles. !t does 
not ask for your name or do any 
stroking. !t simply flashes a 
problem and allows you to answer it 
only for the time It is displayed. 


This time is selectable as is 
the type of problem. After ten 
problems your score Is totaled and 
you are asked if you want to 
continue. The missed problems are 
displayed. 

The key to the program Is that 
it runs in 'Veal time", it does not 
stop for Inputs but rather peeks the 
keyboard while In the timing 
loop. 


This routine is adaptable to 
other programs. You could for 
instance scan the entire keyboard 
not just the numbers and rub-out 
key. I don't claim this Is the 
optimum code but it works well and 
fast enough. If you think of your 
self as a math wizz try It at 50 
rather than 9 for speed. 

The technique of drawing random 
numbers while waiting for a shift to 
be pressed Is also note worthy. Even 
with OS I's short random cycle you 
don't repeat the problem sequence. 
The problems are also checked to 
eliminate repeats which legitimately 
occur In a true random sequence. 

This is written for a CIP with 
8K and a 24 x24 display. It can bo 
easily modified to run on other 
polled key board machines. The 
X=USRCX) is a screen erase,Substlfcjte 
your favorite. 


100 PRINT"*********************** 

* 

110 PRINT" FLASH CARD PROGRAM": 

PR I NT:PR I NT"******************** 
*** 


120 PRINT:PRINT"WITH THREE TYPES 

0F":PR!NT" PROBLEMS_ 

150 PR!NT"C1) ADDITiON FACTS TO 2 


0 


140 PRINT"(2) SUBTRACTION FACTS T 
0 20 

150 PRINT"(3) MULTIPLICATION FACT 
S TO 12 

160 INPUr'WHtCH DO YOU WANT";S 
170 IFS^10RS>3THEN160 
180 PRINT"A PROBLEM WILL FLASH ON 
THE SCREEN 

190 PRINT"Y0U MUST TYPE THE ANSWE 
R BEFORE IT DISSAPEARS 
200 PRINT"Y0U MAY ERASE ERRORS 
WITH THE RUB-OUT KEY, 

210 PR1NT"IF YOU PRESS RETURN THE 
ANSWER WILL BE CHECKED IMMEADIAT 
ELY 

220 PRINT:PRlNT"HOW FAST DO YOU W 
ANT TO GO ?" 

230 tNPUT"TYPE KSLOW) TO 9(FAST) 
";TK 


240 tFTK?lTHEN230 


250 TK'=250/TK 

260 PRINT"PRESS EITHER SHIFT KEY 
TO START 

270 IFPEEK(57088)»254THENX*RND<8) 
:G0T0T7U ■■ ^ -_ 


280 X=USR(X) 
290 TD=TK*50 


300 N=0:EN=0:PN=10:£1=0 
310 D1ME$(99),Q$(99),B(99),CC99), 
D(99) 

3Z0 ONSGOT0330,330,5» 0 
530 B=INT(20*RND(8)) 

340 C=INT(20*RND(8)) 


350 IFC=0ORB=CTHEN330 
360 ON S GOTO370 ,590,590 
370 1FC^BOR8«OTHEN530 
380 GOT0400 
390 tFC^BORB=0THEN330 
400 D=B-C:REM C+0=B 
410 FOR H=0TON 

420 1FB=3(H)ANOC=C{H)THEN520 
430 NEXTH 

440 ONSGOTO450 ,470,490 

450 a$«STR$CC)+"+"+STR$(D)+"=" 

4 <0 GOT0500 

470 Q$=STR$(C)+STR$(D)+"=" 

480 GOTO500 

490 Q$=STR$(C)+" X"+STRS(D)+"=" 
500 B(N)«B:C(N)=C 


510 N:=N+1 


520 Q$CN)=Q$ 
530 PRINTQS 
540 B$=STR${8) 
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OSIO Program Exchange 
Library 


DIBmTE : OS-6^3 tJO. 1 OCTOBER I, 1980 


TTffi APPOlimiElfr PROGRAM IN THE LIBRARY USES THE 
PXLCWDIG PROGRAMS : *APPT*, 'APPTAD*, 'APPrED', APPTFI*, 
‘APPIN’, ’CAUSKD', 'D«TR1*, m: ’INEm'. IT AI^ HAS 
SAMPLE DATA FII£S KWOWN BY : 'DATAPL' AND ’OATAP2’, 

TTiESE DATA FILSS OR SOME OTHER EATA FILES WITH THE SAME 
NAME ARE REQUIRED- 

THE PROGRAM ‘FtNDtP* IS USED TO COPY DATA 


*BK3‘ IS A PROGRAM WHITTEW FOR THE 

C2-8P ’'/rDEO DISPLAY* 


'NUMCOW* IS A HEXII30:]>1AL NIJMBER TO DSCIMAL HUMBER 
CGKVERSXCK PROGRAM 

’EDIT‘ IS A EDITOR/POR^RTTZR WRITHN 
IN BASIC. IT REQfJIRES 4aK TO RUN SFFSCnVELYf HOWEVER, THE 
editor GAN BE SEPARATED FROM THE TOK^iATTER SO THEY CAN 
Rl-tJ IN A 32K DISK BASED SYSTEM.. THIS. PROGRAM WAS COPIED 
OUT OF THE ?©Y' 1979 ISSUE <OF KILOBAUD. 

‘EDITOR' IS A PROGRAM TO CHA.>IGE DATA FILES, 

■RENUH' IS A BASIC RENUMBERING PROGRAM TO MAKE 
YOUR BASIC PFEDGRAMS LOOK MICE, USE AN INDIRECT PILE TO 
APP©;D the RENUMBERING PROGRAM TO TOUR BASIC PROGRAM. 

TKEN JUST RI;H63900. YOUR PROGRAM 'WILL BE RENUMBERED 

'M0D550* IS AN ASSEMBLY LANGUAGE PROGRAM THAT DOES 
WE HOCESSARY '^RK TO DTTERFACE A 550 BQARD<X10) TO A 


*PRDNLY' IS A OTILITY PROGRAM TO PREPARE A. DISK OF 
3EIECTED PROGRAMS FRCM ^ANOTHER DI^ AUTOMATICALLY, 

'ASMJSR^' IS A UTILITY PROGRAM TO CREATE BASIC CRTA 
STATEMENTS m ^ASSEMBLY LANGUAGE ROUTINE OR PROGRAM. 

IS A UTILITY PROGRAM TO AUTOHATIGALLY LIST 
h SERIES OF SPECIFIED PROGRAMS . 


■REMUMA' A PROGRAM TO RENUMBER YOUR BASIC PHOCTIAM 
ON DI^. 

'OIPRCSI* A C0^^^EN^ED PROGRMA OP 'PRONLY' ♦ 

'CRENAM' A PROGRAM TO CREATE NAME C3N A DIRECTORY. 

'MESSAG' IS A PROGRAM TO STORE MESSAGES ON DISK, 

'REACT* IS A PROGRAM TO TEST YOUR REACTION TIME- 
TOR THE C3P OR C4P. 

'TEL BCG' 'TElQOl* Sc 'TEXE*f ' ARE '.T^RIATIONS OF MDD550 
HUT TOR DOTBSSJTT PORTS. AIL- ARE ASSEMBLY CODE. 

'MEMTS?' A MEMORY TEST PROGRAM IS THORDOffl. 


DISKETTE s 0S-65U !0- I 


APRIL 25, 1981 


3ETO RE RUNNING TIffi PROGRAM 'CKBOOK', CREATE OH ,AN0THER 
OISKEITE 'CRDITS*, 'CHRGES', AND ‘Sll*KKY* . 

BEFORE SUNNING 'LABSRT', CREATE OK A DlFFE3l£Wr DISK 
'LABCFA\ ‘LABCTO\ 'LABCFT', 'LABCFG', *LABCFM\ 'LABCPQ', AND 
‘LABCFT* <TO RLSa WITHXFT CHANGING THE PRESENT PROGRAM), 

SOURCE DATA MUST BE IN THE OSI lAELE FORMAT 6-FIZLD 
RHCORD WTTH FIELD LENGTHS OF 25, 25, 25, 25, 10, It 10, 


ora DISHAYS THE DIRBCTORY OF THIS DISK. 

■OKBOOK IS A PROGRAM TO RECONCILE YOUR CHECKBOOK 

THERE ARE TNOTRUCTIONS WITH THE PROGRAM, 


LABSRT ALOtas WITH 'LABLE2' SORTS MAIKD3G LABELS .AS 
CREATED 3Y THE LAHLE PROGR^y^ 

LANDER A LUNAR LANDER LOSING A SERIAL TERMINAL LIKE 
AN ArM-3 TERMINAL 

hexdbc oonverts hexidecimal nlmbers to decimal numbers 

DCHYPT AN AID TO SOLVING CRYPTOGRAMS, OBTRUCnOWS .ARE 
included with the PROGRAM. 


header DUtSPS THE HEATSR OF A DBMS FILE. Vf USES ITS 

cm ASSEMBLY LANGUAGE ROt/TIHE SO TP IS FASTER THAN 
THE PROGRAM SUPPLIED 2Y OSI, 

>nHQIS MATH CUIZ - A VERY GOOD PROGRAM FOR TESTING 
YOUR MATHEMATICAL SKILLS 

DMCWP a iXMP PROGRAM FOR DB^B FUJES 

WmX A PROGRAM TO GENEE^ATE PATTERNS m YOUR PRINTER 

FflM ANOTHER PROGRAM TO HAVE FUN WITH 

COPIER THE COPY PROGRAM SUPPLIED WITH 0S65U, IT 'IE USED 
BY THE 'MAKE' PROGRAM. 


MAKE USED BY THE OSIO LIBRARIAN TO MAKE COPIES OF THE 

PROGRAM EXCHAFPGE LIBRARY DISKS, IT MAKES USE OF THE 
LVDIRBCT FILES OP 00650 BASIC. 

RENUMB RENUMBERING PROGRAM TOR BASIC PROGRAMS., 

HETRUCTIONS are found in line numbers 12040 '12110 
CLOSE EXAMINATION OF LINE #'S 10000 THRU END OF THE 
PROGRAM WILL 3E OF GREAT ASSIOT.AMCE. PROGiy^ DOES NOT' 
EXPAND SPACE BUT GIVES A WARNING MESSAGE. 


FORMAT SKELETON 0^ Q®1D TO(XSOX SAMPLE PROGRAM STRUCTURE 

MENU A SAMPLE MENU PROGRAM TOR RUteONG THE REMJMB PROGIWl 

letter PROGRAM TO AID IN THEl WRITING OF h LETTER 

LISTHR A DATA FII£ LIOT PROGRAM - PRIJ7IS AH, THE 
DATA CONTAINED M A FUM 


mPFMP FH^ MAP CM THE FILE MAP PROGRAM 

FXLMAP A I’ARIABLE MAPPIiJG PROGRAM AS APPEARED IN THE 

9/80 MICRO. RTOUIRES 2 FILES TOR lOTUT. ONE IS A DATA 
FILE CF THE BASIC PROGRAM (TOES IS DCHE BY DOItKSj 
IDAD OF THE BASIC FILE, OPEN THE lATAFILE,CHANNEL, 

-AND LI3T%CHANNEL, PRJNTiCHAtCJEL. 'OK') 

THE SECGHD DAm FILE IS NEEDED FOR RECORDING THE. 
ItJTORMATtON .AS XT IS PROOUCTO, IT CAN BE PRINTED WITH 
THE REPORT FUNCTION AT LINE 2000 

EVDRK A Lmi£ CLEANLT .AMD MOVING TOOL- 

5^10 THE FILMAP PROGRAM m THE OSIO TOXBQX 
SUGGESTED STRUCTORE 

PASKEY PROGRAM TO DEOXE THE PASSWORDS 'CN SSJ FILES 

DDIR PROGRAM TO DiSPMf A DIRECTORY IN DOUBLE COLUMNS 

kopier program To copy an entire disk 


Wl-IO PROGRAM THAT ILLUSTRATES SEVERAL TDCHNIQUES ET 

65U .AND BASIC: (1) AliUOCATING MEMORY FOR A SECOND 6SJ' 
SUFEHR, (2) SETTriNG THE ZNPUT DISTRIBUTOR TOR MH^ORY 
INPirr, (3) READING 6SU DATA FIXES VIA USR(X), AND (4) 
CCMBINIG A SBT CM ROUTINES TO TEST .AND uEBUG I/O CODE 
BEFORE INSTALLING IN LIVE APPLICATIONS. 

ED AN EDITOR PRDGRWI WHICH WAS DERIVED FROM .AN OLD 

ARTICLE IN KILOBAUD MAGP.2INE- INSTRUCnOMS TOR mim 
*ED' ARE IN THE FlIZ 'INSTKJ', "TXPEWT' CAN BE USED 
TO PRINT THE rNSTRUCTIQNS. 


program to phi^t files created thhdo® the *hd' 

PROGRAM. ^I^iSTRU’ CCNTAINS ESTRLJCnOtaS ?OR USING W. 

NEWTEX PROGRAM TO INITIALIZE A. FII£ FOR *ED“ - 

LSTR A PCWERTUL TOOL 'ID EXAMINE FILES AND 

CHANGE ITiEM IF NEEDED. A COPY CW THIS PROGRAM CAN 3B 
INCLUDED AT THE a© YOiJR PROGRAMS AND JUMPED TO IF 
‘^99 *IS A RESPONSE TO ANY INPUT (MUST RE PROGRAMED)- 

V'AHLffT MUL LIST .ALL v7^RlASt£S USED IN A PROGRAM AND 
WHERE THEY ARE USED (LINE. #)- 


{A FILE ^’AR%7* 1$ REQUIRED) BUILDS A NEW 
PROGRAM -AND POTS IT INTO 'VAK%7* WHICH WHL PRINT 
’^ARIABLE NAMES IN FILE #7 EACH TIME A vTiRIABLE tS USED 
AS THE IS 51JN. FROM Tf^T 'iOU -CAN ORDER ‘tHE. 

VARIABLES SO THE MOST USED VARIABLES ARE FIRST, AND 

THE r^Asrr used are last, id speed execution, be 

CAREfUL OF VTERY LARGE PROGRAMU FILE MAY !rl7r 

BE LARCS ENOOOi TO ACOCMMDiWVrE THE OOTPOT- IHE PROGRAM 
MAY NEED TO BE SEt3^ENrED OR SDCTICtTED BEFORE A 
OCMPLEnE ANALYSIS ON' SE CONE. 


MEUD ALLOWS YOU TO ’CREATE A PROGRAM OF AIJL, OR PART 

OF OTHER PROGRAMS. IT POTS THE PROGRAM IN ’STC^^PL’ 
(YOU MUST CREATE IHIS FILE). THIS PROGR,\^ IS HANDY FOR 
LIFTING RDLTINES FROM VARIOUS PROGRAMS TO ^CREATE A NEW 
PROGRAM < OR REAARA:KING OW PROGRAMS FOR FATER EXEC- 
UnCH BY MOVING FREQUENTLY (.tSED ROUTINES TO 'tHE FRONT. 
RESULTING PROGRAMS HAVE fOOT-OF-SEQUEHCE LINE 
NUMBERS. RSEJQ MUST BE RUN IWICS TO STHAiaHTEN TP C3OT 
WATCH QOTlll GHBCK ALL OCOD’S AND XSUB'S CAREFUILYI! * 

NEWVAR IS- SIHi:iAF TO MELD* SOT IT .ALLOWS YDtJ TO MEFK3: 2 
OR MORE PROGRAMS WITH CO'fCN \TyUABLE NiAMES, AMD 
CHA^ THE 'VARIABLE NAMES, WHERE DESIRED, TO 
DlFfEREWT NAMES. 

DIRCHN .AUIMS ^OGRAM .ACCESS RICHTS TO BE CHANGED OK DISK- 


GQ^LED A i^XERAL :^DGER PROGRAM. 


Do you have an unusual use for your 
cannputer? An unusual location, an origiml 
Gonfiguratim, some unconventional 
corrponents? Let the rest of us "knew about 
it. Send an article to the OS 10 Newsletter. 

That little utility program you wrote- 
-isn't it likely that someone else will need 
to do exactly the same job? Mhy not serd it 
in to the OSIO Program Exchange? 

Watch the label! Ihe expiration date of 
your membership appears to the right of your 
manribership number. If there's no date, or 
if the expiration date is near, send rroney 
to the treasurer! We cton't have the 
resources to send notices or follcmjps* 

More members will give us more resources 
with %#iich to serve all members better. If 
you knew someone Who lias an OSI cerrputer and 
isn't a member of CBIO, do a little 
missicxiary work for the organizatiCTi. Show 
him or her your Newsletters and explain the 
advantages of moibership. 


Cassette Dependability 

Shans Basiti, of Grand Prairie, Texas, 
sent in this modification which he wrked 
out for a C4P owner. 

"The problem was that every time he 
wanted to load frcin his cassette he had to 
adjust the volume control to exactly the 
right level -to load wittout an error. 

"With the mcdificaticai slicwn belcw we 
solved the problem. Now he uses a $22.50 
cassette player, and all he has to do is 
turn the volume full open and run it." 

"1 think this would probably work cao 
any OSI machine wi-th a cassette 
interface." 

There's a Texas saying, "If it ain't 
broke, don't fix it" — but if you're 
having trouble loadir^ without errors, you 
might vrant to try -this one. 



550 P$=” " 

550 POKE530,1:K=57088 
570 0=54095 
580 GOTO620 
590 C=INT{12*RND(8)) 

500 D=INT(12*RNDC8)) 

610 B=C*D:GOT0410 
620 FORT=OTOTK 
630 P0KEK,127 
640 P=PEEK(K) 

6 50 IFP = 12 7THENP$=P$ + *'l":GOTO820 
66 0 IFP=191THENP$ = P$ + "2’':G0T0820 
6 70 ! FP=22 3THENP$»P$ + "3'': GOTO820 
680 1FP=239THENP$=P$+"4":GOTO820 
090 IFP=247THENP$=P$+"5":GOT0820 
700 IFP=251THENP$ = P$ + "6'*:G0T0820 
710 !FP=253THENP$*P$+"7":GOTO820 
720 POKEK,-JSH: <41 
750 P=PEEK(K) 

740 IFP=127THENP$=P$+"8":GOTO820 
750 IFP=191THENP$=P$+"9":GOTO820 
760 1 FP = 225THENP$ = P$ + "0'!:GOTO820 
770 1 FP=*251THENP$ = " ":FORY=DTOYN: 
POKEY,32:NEXT 
780 POKEK,223 
7> 0 P=PEEK(K) 

800 (FP=247THEN970 
810 GOTO890 

820 FORY=lTOLENCP$):POKED+Y,ASC(M 
ID$(P$,Y,1)):NEXT 
830 POKED+Y,32:YN=D+Y 
840 FORTl=0TO50 
850 P=PEEKCK) 

860 IFP=255THEN880 
870 NEXT T1 
880 RB^ 

890 NEXT T 

900 IFP$=B$THENA$*P$:GOT01010 
910 PRINT"TiME IS UP 
920 PRINT;PRINTq$;3$ 

930 E$(EM)=QS+B$;£N=EN+1 
940 FORZ=OTO TD:NEXT:X=USR(X) 

950 IFN=PN THENllOO 
960 G0T0320 
970 A$=P$ 

980 PRINTAS 
990 P$=" " 

1000 IFA$?^B$THEN1050 
1010 PR1NT:PR1NT"RIGHT ";Q$;A$ 
1020 FORZ=0T0500:NEXT:X=USR(X) 
1030 1FN=PN THENllOO 
1040 G0T0320 

10 50 PRINT:PRtNT'*WRONG":PRINT"THE 
CORRECT ANSWER IS 
1060 E$(EN)=Q$+B$:PR1NTE$<EN):EN= 
EN + 1 

1070 FORZ=OTO TD:NEXT:X=USR(X) 


1080 IFN=PN THENllOO 
1090 GOTO320 

1100 PRINT:PRINT:PRINT:N1=10-EN+E 

1 

1110 PR1NT"Y0U GOT "Nl" RIGHT 
1120 PR1NT"0UT OF TEN 
1130 IFEN-E1=0THEN1170 
1140 PR1NT"Y0U MISSED.., ":PRINT 
1150 F0RX=E1T0EN 
1160 PR1NTE$(X):PRINT:NEXT 
1170 IF N=99THEN1210 
1180 INPUr'DO YDl/'WANT TO CONTINU 
E";C$ 

1190 E1=EN:PN=PN+10 

1200 IFIEFT$(C$,1)%?"N"THEN320 

1210 X=USR{X) 

1220 PR!NT"YOU DID "N " FLASHCARD 
S" 

1230 N1=M-EN 

1240 PR!NT"ANO GOT "Nl" RIGHT 

1250 PRINT"YOU MISSED_PRINT 

1260 FORX=OTOEN 
1270 PRINTE$(X):NEXT 
1280 END , 

OK 


'Riis is rot a new offer, but a change in 
an old one. Richard Ccsneau, operated 
Peripheral Interfecing Equipment of 
Columbia, MO, has left the field. He's no 
longer an OSI dealer. 

Why? Because he went to work for CSI, 
that's 

He'll be helping to set up those Ward's 
conputer stores, and it might not look good 
for a full-time OSI eEtplcyee to be sellirsg 
CSI equipment on the side, and furthermore, 
OSI will probably have him so busy in the 
new stores that he wouldn't have time to 
count the orders anyway. BlLs new address is 
Richard Cctneau, 1640 W. Hwy. 36, i^t. 137, 
Roseville, MN 55113. 

Does that mean no more CSIO discounts 
frc*n P. I. E.? Well, not exactly. Where 
does a boy learn about conputers? At his 
father's knee. And Richard's father. Dr. 
Richard A. Ccmeau, a cottputer buff of long 
standing, will take over P. I, E. 

He's already started streamlining 
procedures, according to Richard. Ifc more 
long list of specific prices for C®IO 
maribers—just a straight 18% discount frora 
list. We hope to have more details next 
month. 


Discounts 
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OSI Toolbox 


MCNEY MOIX: FIX 

Radford Cairpton writes about a bug in 
many versions of CS-65U. 

'"nie money mode bug makes itself knc^n 
by crashing the syston v^en you try to 
print a very small amount. lb test and 
see if you have a bad versicci, boot up the 
system, remove all the floppies from your 
drives, and then, in irtmediate mode, run 
the short program given below. (If you 
don't ranove the floppies, and the systexi 
crashes, it might attempt an unauthorized 
write)." 

You never try to print fracticxis of a 
osnt? Hew do you knew? When you are 
performing coirputations, you might very 
easily encounter a very smll figvare 
without even realizing it. 

PRINr%R, 1/104 

If your system cdiokes over that 
mouthful, make the change illustrated 
below. 


DISK CHANGE UTILm 

MODE: HEX(H), DBC{D) ? H 
UNIT ? A 

ADDRESS OFFSET ? COO 
ADDRESS ? 25E9 


000025E9 


FO 

? 

20 

000025EA 


04 

? 

E2 

000025EB 


C 8 

7 

31 

000025EC 


C 8 

7 

EA 

000025ED 


C 8 

? 

BO 

000025EE 


C 8 

? 

12 

000025EF 


A2 

7 

* 

AM3RESS ? B9E2 


000031E2 

J 

4A 

0 

•> 

PO 

000031E3 

J 

4A 

7 

04 

000031E4 


AA 

7 

C 8 

000031E5 

h 

68 

7 

C 8 

000031E6 

) 

29 

? 

C 8 

000031E7 


OF 

7 

C 8 

000031E8 


18 

? 

CO 

000031E9 

i 

69 

7 

oc 

000031EA 


OA 

7 

60 

000031EB 


CA 

7 

X 


OK 


OSI — and so. Forth: 

Several versions of Forth are now 
available for OSI machines, and we'd like 
to hear fmt Rsrth users, have no 
doubt that we will, because they seat to 
have an evangelical fervor. Forth users 
work hard to help the rest of us to see 
the lit^t. 

In this respect they are mixih like 
Pciscal users. In nearly everything else 
the two caitps are far apart. The 
differences are illustrated by their 
attention to the stack: the Pascal 
programmer r^ver knews what's on the 
stack, and the Forth prograittner never 
forgets for an instant. 

We who are beginners in both languages 
yearn for enlightenment. Pascal is 
a^railable, of course, from your CSI 
dealer. Forth may not be, so we'll give 
you a few soxirces, with the understanding 
that you '11 write and tell us hew to avoid 
some of the mistakes you made in learning 
it. TSe full Forth Interest Grexip versicxi 
(FIG-Forth) is available for OSI systems 
from (at least) the following vendors: 

Teclmical Products Co., Box 12963, 
Gainesville, FL 32604 (An earlier versicai 
by this firm and Progranma did not inclixie 
the .full FIG version. Their OSI-Forth 
2 . 0 , they say, does. 8 ” disks.) 

Mike Alport, 5 Vfoodland Mounds Rd., 

Iowa City, lA 52240 (We received an 
announcement saying that the full FIG 
version is available on 5-1/4" disk for 
CIP arxl Superboard. Requires 16K or itore 
marory; $50. In case you're really in a 
hurry, the telephone number is (319) 
338-2883.) 


Taflgate Market 

Siemens disk drives — Model FI®220-8. 
Double-sided, dcwble-density drives, only 
one year old. Che::ked out aral warranted 
for 30 days. $375 eadi or $700 for the 
pair. Chuck Popenoe, 6307 Wiscasset M., 
Bethesda, MD 20016. 
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Patches Speed Basic 

via Lee Conyers - Reston, Va. 

Finally, Byte magazine has published an 
article that clearly aids OSI users. In the 
Nfay 1^1 issue, pages 236-242, John Sauter 
of Ann Arbor, Michigan ^ows how to 
significantly increase the speed of OSI 
Basic in performing certain mathesratical 
functions. Inpressive inprovements are 
possible in Basic functicans using 
Microsoft’s multiplication routine. 

John's article is extranely enlightenir»g 
and I strcxigly reconnend that you read it. 

He gives corgplete programs for installir^ 
tw interpreter patches in both 65D and 65U. 
C>ie patch is for the multiplication routine, 
the other for the normalization routine. 

Both of John's programs use the same 
approach for installing the patches in both 
operating systems even thoi^h 65D and 65U 
are very different. Since I am a 65U user, 

I preferred the OiAt<(GE utility to install 
tte patches. 

To install John's multiplication patch in 
650, using the CHAi^E utility, enter the 
following fifteen IffilX values beginning at 


Membership Information 

CSIO dues are $15 a year. Overseas 
mattoers who want the Nes^sletter sent by 
airmail pay an additional $15, a total of 
$30 U.S. (It seems likely, because of 
recent increases in postal fees, that we 
shall have to increase all rates. Renew 
new!) 

If you are a manber, your membership 
nuriber and the date to Which your dues are 
paid are shewn above your name on the 
mailir^ label. Watch your label, and renew 
your rnanfoership prcrptly before it expires! 
We do not have tSie resources to mail 
renewal and reminder iKOtices. 

If no nxrubsr and date are shown, this is 
a sanple copy. We invite you to becone a 
maiiber, take part in our activities, ar*3 
enjoy the benefits of our Newsletter, 
Program Exchange, chapter n^etings, 
seminars, and occasional discount offers 
and group purchases. Just send a check in 
the proper amount bo our Treasurer, whose 
name and address are given below. 


66,73,66,74,66,75,66,76,66,BD, 98,4A,DO,D6,60 


To install John's rxDrmalization patch in 
6SJ, using the CHANGE utility, enter the 
following thirteen HEX values beginnir^ at 
$1354: 


76,02,76,03,76,04,68,6A,C8,DO,E8,18,60 

In testing the patches I found a 
significant irtprovement in ray boachmark 
program listed below: 


Meetings 






100 A=9999999 

110 PRINT , 

120 for; - - ' 

130 

140 next£^^ 

1 SO PK 

^ -- r 

Before the "patches, tte above program texak 
about 28 seconds to execute. After the 
patches, it took about 20 seccxids, for a 28% 
decrease in execution time. (My 6502A runs 
at 2 Mhz.) Needless to say, I am 
delighted. 

One final note. Wbuld you believe that 
When Jc^Tn contacted OSI about his discovery, 
CSI actually resporaled? I wonder ..." 


The MD/VA/DC group meets on the first 
Tuesday of each noith at 7:30 p.m., at the 
Walter Johnson High School, 6400 Rock 
Spring Drive, Rockville, MD. On June 2 we 
will have a review of seme popular business 
programs, in addition to our usual 

-raiding disciossicxi of hardware and 
re prcblems arid fixes. 

>I discussicn groi:ps meet cn the 

third, and fourth Tuesday of each 
at Corrmunity Carputers, 2704 N. 

Shing Drive, Arlingtcn, VA. On the 
second Tuesday of each mcrrtdi, discussions 
will center on cassette-based systems, 
BASIC—in-FK3d, and hardware. On the third 
Tuesday of each month the subject will be 
OS-65D, heme systems, pollei keyboards, and 
I'CMS. On the fourth Tuesday discussiens 
will be about 65U, serial terminals, 8" 
floppy and hard disks, and business 
applications. 
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Program Exchange 

Our exchange disks do not contain the 
operating systsns or other proprietary 
programs; add yaur cwn system to them, or 
copy the programs you want to other disks. 

Send in your cwn programs with enough 
postage to return the material to you, ard 
if your program is accepted for the 
Exchange, add the other programs in 

the Exchange to your disk or cassette and 
return it. 

Primarily for the benefit of new meirtoers 
who do not yet have programs to exchange, 
we will provide a library disk for $7.50 
plus postage, or a cassette for $2.50 plus 
pcsstage. In the U.S. postage for a disk or 
a cassette is about $1.80; overseas postage 
rates have recently been steeply increased. 
They are new about $2.50 for one 3" disk by 
air to Central America, South ?toerica, or 
Europe, and about $3 by air bo the Pacific 
Oceaui islands and Asia. Each additicxial 
disk or cassette adds about .50 more. 

In ordering a disk, be sure to say 
whether 650 or 65D, and give your 
marribership number. 
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